Option Explicit
Sub P_Sample027()
    Dim myFso As Scripting.FileSystemObject
    Dim myStr As String
    Set myFso = New Scripting.FileSystemObject
    With myFso.GetFolder(ThisWorkbook.Path)	'wNƧ
    Debug.Print "s@:" & .DateCreated
    Debug.Print "̫s:" & .DateLastAccessed
    Debug.Print "̫s:" & .DateLastModified
    Debug.Print "RootϺоW:" & .Drive
    Debug.Print "RootƧ:" & .IsRootFolder
    Debug.Print "ƧW:" & .Name
    Debug.Print "ƧW:" & .ParentFolder
    Debug.Print "|:" & .Path
    Debug.Print "DOSεuW:" & .ShortName
    Debug.Print "DOSεu|X:" & .ShortPath
    Debug.Print "jp:" & (.Size / 1024 ^ 2) & "MB"
    Debug.Print ":" & .Type
    End With
    Set myFso = Nothing				'
End Sub
